﻿Imports System.Data.SqlClient
Public Class frmTiepNhanChuNha

    Private Sub btnTiepNhanNguoiDang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTiepNhanNguoiDang.Click
        Dim nguoidang As NguoiDangDTO = New NguoiDangDTO()
        Dim mand As String = ""
        Dim macuoi As String = NguoiDangBUS.LayMa_ND_Cuoi()
        mand = NguoiDangBUS.TinhMaNguoiDang(macuoi)

        If NguoiDangBUS.KiemTraDayDu(txtHoTenKhach.Text, txtDiaChi.Text, txtEmail.Text, txtDienThoai.Text) Then
            nguoidang.strMaNguoiDang = mand
            nguoidang.strHoTen = txtHoTenKhach.Text
            nguoidang.strDiaChi = txtDiaChi.Text
            nguoidang.strDienThoai = txtDienThoai.Text
            nguoidang.strEmail = txtEmail.Text
            nguoidang.isTamXoa = False

            NguoiDangBUS.Insert(nguoidang)
            MessageBox.Show("Bạn đã thêm thành công một người đăng!!", "THÔNG BÁO")
        Else
            MessageBox.Show("Bạn chưa nhập đủ thông tin cần thiết!", "THÔNG BÁO")
        End If
    End Sub

    Private Sub btnHuy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHuy.Click
        Me.Close()
        Form1.maintab.Tabs.RemoveAt(Form1.maintab.SelectedTabIndex)
        If Form1.maintab.Tabs.Count = 0 Then
            Form1.maintab.Visible = False
        End If
    End Sub

End Class